home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b6.d64 / settime.l < prev    next >
Text File  |  2007-02-28  |  759b  |  27 lines
  1. 9000 PROC SETTIME(HRS,MNT,SEC) CLOSED
  2. 9010 CIA1:=56320; CCRB:=56335
  3. 9020 POKE CCRB,PEEK(CCRB) MOD 128
  4. 9030 X:=0
  5. 9040 IF HRS>12 THEN X:=128; HRS:-12
  6. 9050 IF HRS=0 THEN HRS:=12
  7. 9060 X:+(HRS DIV 10)*16+(HRS MOD 10)
  8. 9070 POKE CIA1+11,X
  9. 9080 POKE CIA1+10,(MNT DIV 10)*16+(MNT MOD 10)
  10. 9090 POKE CIA1+9,(SEC DIV 10)*16+(SEC MOD 10)
  11. 9100 POKE CIA1+8,0
  12. 9110 ENDPROC SETTIME
  13. 9120 //
  14. 9130 FUNC READTIME CLOSED
  15. 9140 CIA1:=56320; X:=0
  16. 9150 X:=PEEK(CIA1+11)
  17. 9160 AM'PM:=X DIV 128; X:=X MOD 128
  18. 9170 X:=(X DIV 16)*10+(X MOD 16)
  19. 9180 IF X=12 THEN X:=0
  20. 9190 X:+12*AM'PM
  21. 9200 X:=X*100
  22. 9210 X:=X+((PEEK(CIA1+10) DIV 16)*10)+(PEEK(CIA1+10) MOD 16)
  23. 9220 X:=X+((PEEK(CIA1+9) DIV 16)/10)+((PEEK(CIA1+9) MOD 16)/100)
  24. 9230 X:=X+(PEEK(CIA1+8)/1000)
  25. 9240 RETURN X
  26. 9250 ENDFUNC READTIME
  27.